#!/usr/bin/perl

use warnings;
use strict;

my $x = 0;

$x = $x + 1;
$x += 1;
$x++;
